%Sets the font to times New Roman of size S.
%
%font(h,S);
%
%h=handle
%S=size

function font(h,S);

set(h,'fontname','times new roman');
set(h,'fontsize',S);